home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SOUND.SWG / 0015_WHISTLE.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  433b  |  34 lines
  1. { BILL BUCHANAN }
  2.  
  3. Uses
  4.   Crt;
  5.  
  6. Procedure OpenWhistle;
  7. Var
  8.   Frequency : Integer;
  9. begin
  10.   For Frequency := 500 to 1000 do
  11.   begin
  12.     Delay(1);
  13.     Sound(Frequency)
  14.   end;
  15.   NoSound
  16. end;
  17.  
  18. Procedure CloseWhistle;
  19. Var
  20.   Frequency: Integer;
  21. begin
  22.   For Frequency := 1000 downto 500 do
  23.   begin
  24.     Delay(1);
  25.     Sound(Frequency)
  26.   end;
  27.   NoSound
  28. end;
  29.  
  30. begin
  31.   OpenWhistle;
  32.   Readln;
  33.   CloseWhistle;
  34. end.